home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / booom.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-23  |  3.0 KB  |  96 lines
  1. 110  REM **********************************************************
  2. 115  REM ***                                                    ***
  3. 120  REM ***   PROGRAM:     "!!BOOOOOOOOM!!"                    ***
  4. 125  REM ***                                                    ***
  5. 130  REM ***   AUTHOR'S NAME:      JOHN BEECHEN                 ***
  6. 135  REM ***   DATE FINISHED:      JUNE 1,1984                  ***
  7. 140  REM ***                                                    ***
  8. 145  REM ***   This program may be changed by the user, but I   ***
  9. 150  REM ***  ask that you please leave this heading unalter-   ***
  10. 155  REM ***  ed.                                               ***
  11. 160  REM ***                                                    ***
  12. 165  REM ***        !!!!!PLEASE ENJOY THIS PROGRAM!!!!!         ***
  13. 170  REM ***                                                    ***
  14. 175  REM ***                                                    ***
  15. 180  REM ***                                                    ***
  16. 190  REM **********************************************************
  17. 195  REM
  18. 200  REM =============== SCREEN SETTING ================
  19. 210  SCREEN 1
  20. 220  CLS
  21. 230  COLOR 7,0
  22. 240  PRINT TIME$
  23. 250  LINE (1,180)-(319,180),1,B
  24. 300  REM ========== DIMENSIONS AND GRAPHICS ===========
  25. 310  DIM BOMB(8)
  26. 320  DIM BOMB2(8)
  27. 330  DIM BOMB3(8)
  28. 340  LINE (1,175)-(4,179),3,B
  29. 350  LINE (315,175)-(319,179),1,B
  30. 360  LINE (158,20)-(162,24),3,B
  31. 370  GET (1,175)-(4,179),BOMB
  32. 380  GET (315,175)-(319,179),BOMB2
  33. 390  GET (158,20)-(162,24),BOMB3
  34. 400  PUT (1,175),BOMB,XOR
  35. 410  PUT (315,175),BOMB2,XOR
  36. 420  PUT (158,20),BOMB3,XOR
  37. 425  LINE (150,170)-(170,180),2,BF
  38. 430  LOCATE 6,6:PRINT "!!PRESS ANY KEY TO DESTROY!!"
  39. 435  C=C+1
  40. 440  IF C/15=INT(C/15) THEN LOCATE 6,6:PRINT " WHAT CAN'T YOU PRESS IT??     "
  41. 445  FOR X= 39 TO 870 STEP 5
  42. 450  SOUND X,0.002
  43. 480  NEXT X
  44. 490  IF INKEY$="" THEN 435 ELSE 495
  45. 495  SOUND 32767,1:LOCATE 6,2:PRINT "                                    "
  46. 505  FOR LOOP1=1 TO 149 STEP 2.5
  47. 510      PUT (LOOP1,175),BOMB,XOR
  48. 520      PUT (315-LOOP1,175),BOMB2,XOR
  49. 530      PUT (158,20+LOOP1),BOMB3,XOR
  50. 540      PUT (LOOP1,175),BOMB,XOR
  51. 550      PUT (315-LOOP1,175),BOMB2,XOR
  52. 560      PUT (158,20+LOOP1),BOMB3,XOR
  53. 565  SOUND 750+LOOP1*2,0.5
  54. 570  NEXT LOOP1
  55. 600  REM ==============EXPLOSION===============
  56. 610  FOR LOOP2=1 TO 100 STEP 5
  57. 615  SOUND 44-LOOP2/13,0.2
  58. 617  SOUND 55-LOOP/9,0.5
  59. 620      CIRCLE (160,175),4+LOOP2,3,,,1/18
  60. 630      IF LOOP2>25 THEN COLOR 7,0
  61. 640  NEXT LOOP2
  62. 645  SOUND 32767,5
  63. 650  FOR LOOP3=1 TO 85 STEP 6
  64. 660      CIRCLE (160,168),3+LOOP3,3,,,1/18
  65. 665  NEXT LOOP3
  66. 670  FOR LOOP4=1 TO 50 STEP 5
  67. 680      CIRCLE (160,163),2+LOOP4,3,,,1/18
  68. 685  NEXT LOOP4
  69. 690  COLOR 7,0
  70. 700  FOR LOOP5=1 TO 30 STEP 4
  71. 710      CIRCLE (160,157),2+LOOP5,3,,,1/18
  72. 715      CIRCLE (160,153),2+LOOP5,3,,,1/18
  73. 720  NEXT LOOP5
  74. 730  FOR LOOP6=1 TO 20 STEP 4
  75. 740      CIRCLE (160,149),2+LOOP6,3,,,1/18
  76. 745      CIRCLE (160,149),2+LOOP6,3,,,1/18
  77. 750  NEXT LOOP6
  78. 760  FOR LOOP7=1 TO 25 STEP 3
  79. 765      CIRCLE (160,145),2+LOOP7,3,,,1/18
  80. 770  NEXT LOOP7
  81. 790      FOR LOOP9=1 TO 35
  82. 795          CIRCLE (160,146),2+LOOP9,3,,,1/9
  83. 800      NEXT LOOP9
  84. 830  FOR LOOP11=1 TO 95 STEP 0.5
  85. 840          CIRCLE (160,178-LOOP11),6+T,3,,,1/18
  86. 850      NEXT LOOP11
  87. 860  IF T>0 THEN 930
  88. 870      FOR LOOP12=1 TO 80 STEP 2
  89. 880          CIRCLE (160,80),5+LOOP12,3,,,5/18
  90. 890      NEXT LOOP12
  91. 910  FOR LOOP13=10 TO 110
  92. 920      CIRCLE (160,60),4+LOOP13,3,,,5/18
  93. 925  IF LOOP13/90=INT(LOOP13/90) THEN T=T+1:GOTO 830
  94. 930  NEXT LOOP13
  95. 999  END
  96.